R Notebook

International Soccer

Data Source

The aim of this project is to analyze a dataset on international soccer from Kaggle. The dataset is from: https://www.kaggle.com/datasets/martj42/international-football-results-from-1872-to-2017

Getting started

knitr::opts_chunk$set(warning = FALSE, message = FALSE) 
rm(list=ls())

Let’s import the libraries and read in the data.

#install.packages('tidyverse')
library(tidyverse)

goal_data <- read_csv('goalscorers.csv',
                      col_types = cols(
                        date  = col_date("%Y-%m-%d"),
                        home_team = col_character(),
                        away_team = col_character(),
                        team = col_character(),
                        scorer = col_character(),
                        own_goal = col_logical(),
                        penalty = col_logical()))

results <- read_csv('results.csv')

Rows: 44353 Columns: 9── Column specification ─────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr  (5): home_team, away_team, tournament, city, country
dbl  (2): home_score, away_score
lgl  (1): neutral
date (1): date
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

Exploring the data

Let’s filter the data into the last 20 years (games in 2002 and later).

library(lubridate)
library(ggplot2)

recent_goals <- goal_data %>%
  #filter(date >= '2002-01-01')
  filter(year(date) >= 2002)

Let’s check the starting timeframe of our data.

min(recent_goals$date)

[1] "2002-01-18"

Research Question 1

Question: Which teams had the most goals?

Ideally, we would normalize the number of goals by the number of games played. In this case, we are just calculating the total number of goals scored.

q1 = recent_goals %>%
  group_by(team) %>%
  summarise(num_goals = n(),
            own_goals = sum(ifelse(own_goal, 1, 0)),
            scores = num_goals - own_goals,
            .groups="drop") %>%
   slice_max(scores, n=20) %>% # this chooses the top 20 rows according to the scores field
  mutate(`Country Status` = ifelse(team=="Germany", "Top", "Other")) %>%
ggplot(aes(y=reorder(team, scores), x=scores)) +
  geom_col(aes(fill=`Country Status`)) + # highlights Germany
  theme_classic() +
  labs(y="", x="",
       title="Top 20 Goal Scoring Teams 2002-2023 (Total Scores)") +
  scale_fill_manual(name="",
                    breaks=c("Top", "Other"),
                    values=c("darkred", "grey50"))+
  geom_text(aes(x=scores-20, 
                label=scores),
            color="white") +
  theme(legend.position = "none",
        axis.text.x = element_blank(),
        axis.ticks.x = element_blank(),
        axis.line.x = element_blank())

ggplotly(q1)

NA

Research Question 2

Question Which individuals are the best at scoring? Which players scored the most own goals?

library(ggplot2)
q2 = recent_goals %>%
  group_by(scorer) %>%
  summarise(num_goals = n(),
            own_goals = sum(ifelse(own_goal, 1, 0)),
            scores = num_goals - own_goals,
            .groups="drop") %>%
   slice_max(scores, n=20) %>% # this chooses the top 20 rows according to the scores field
  mutate(`Top Player` = ifelse(scorer=="Cristiano Ronaldo", "Top", "Other")) %>%
ggplot(aes(y=reorder(scorer, scores), x=scores)) +
  geom_col(aes(fill=`Top Player`)) + # highlights Ronaldo
  theme_classic() +
  labs(y="", x="",
       title="Top 20 Goal Scorers 2002-2023 (Total Scores)") +
  scale_fill_manual(name="",
                    breaks=c("Top", "Other"),
                    values=c("darkred", "grey50"))+
  geom_text(aes(x=scores-20, 
                label=scores),
            color="white") +
  theme(legend.position = "none",
        axis.text.x = element_blank(),
        axis.ticks.x = element_blank(),
        axis.line.x = element_blank())

ggplotly(q2)

NA

Research Question 3

Question: What is the relationship between own goals + penalties?

This chart shows the relationship/correlation between own goals and penalties.

library(plotly)

p3 <- recent_goals %>%
  group_by(team) %>%
  summarise(num_goals = n(),
            `Own Goals` = sum(ifelse(own_goal, 1, 0)),
            Penalties = sum(ifelse(penalty, 1, 0)),
            scores = num_goals - `Own Goals`) %>%
  ggplot(aes(x=Penalties, y=`Own Goals`,
             text=paste("scores: ", scores," out of ",num_goals, sep="" ))) +
  geom_point(color="royalblue", alpha=0.5, aes(size=num_goals)) + theme_classic() +
  labs(size="Number of Scores", y="Own Goals", x="Penalties") +
  theme(legend.position = "bottom")

ggplotly(p3)

NA

Lets think about what is driving this relationship?

In the above chart, we can see a positive linear relationship between own goals and penalties. This means that as the frequency of own goals increases, so does the frequency of goals scored via penalties.

One possible explanation for this relationship could be that teams that are more likely to make mistakes leading to own goals may also be more likely to commit fouls resulting in penalties. Alternatively, it could be that teams who are more likely to be awarded penalties may also be more likely to have own goals scored against them due to defensive mistakes or bad luck.

Research Question 4

Question: Has the number of own goals changed over the years

g2 <- recent_goals %>%
  mutate(`Goal Year` = year(date)) %>%
  group_by(`Goal Year`) %>%
  summarise(`Own Goals` = sum(ifelse(own_goal, 1, 0))) %>%
  ggplot(aes(x=`Goal Year`, y=`Own Goals`)) +
  geom_area(fill="royalblue", stat="identity") +
  theme_classic()

ggplotly(g2)

We can clearly see that the number of own goals saw a sharp spike in 2019 and 2021.

Research Question 5

Question: When are the most goals scored during the game?

Area chart

recent_goals %>%
  group_by(minute) %>%
  summarise(num_goals = n(),
            own_goals = sum(ifelse(own_goal, 1, 0)),
            scores = num_goals - own_goals) %>%
  ggplot(aes(x=minute, y=scores)) +
  geom_area(fill="royalblue", alpha=0.5) + theme_classic() +
  geom_vline(xintercept = 45, linetype=3) + 
  geom_vline(xintercept = 90, linetype=3) + 
  annotate("text", x=73, y=50, label="End of Regulation") +
  annotate("text", x=35, y=50, label="Half-time")

Question: When are the most goals scored by United States, Canada, Brazil, Argentina and France during the game? Multiple line/area chart

recent_goals %>%
  filter(team %in% c("United States", "Canada",
                     "Brazil", "Argentina", "France")) %>%
  group_by(minute, team) %>%
  summarise(num_goals = n(),
            own_goals = sum(ifelse(own_goal, 1, 0)),
            scores = num_goals - own_goals) %>%
  ggplot(aes(x=minute, y=scores, group=team)) +
  geom_line(aes(color=team), alpha=0.5) + theme_classic() +
  geom_vline(xintercept = 90) + 
  scale_color_brewer(palette="Blues") +
  annotate("text", x=60, y=30, label="End of Regulation")

`summarise()` has grouped output by 'minute'. You can override using the `.groups` argument.

Multiple area chart Use the stat=“identity” to make a non-stacked area chart.

# FACET
recent_goals %>%
  group_by(team, minute) %>%
  summarise(num_goals = n(),
            own_goals = sum(ifelse(own_goal, 1, 0)),
            scores = num_goals - own_goals) %>%
  filter(team %in% c("United States", "France", "Brazil", "Argentina", "Canada")) %>%
  ggplot(aes(x=minute, y=scores)) +
  geom_area(aes(fill=team), position="identity",alpha=0.5) +
  scale_fill_brewer(palette = "Set1") +
  geom_vline(xintercept = 90, linetype=3) +
  geom_vline(xintercept = 45, linetype=3) +
  #annotate("text", x=77, y=30, label="End of Regulation") +
  #annotate("text", x=35, y=30, label="Half time") +
  theme_classic() + theme(legend.position = "bottom") +
  labs(x="Minute", title="By Minute Goals for Several Countries")

`summarise()` has grouped output by 'team'. You can override using the `.groups` argument.

Multiple line chart for selected teams

# FACET
recent_goals %>%
  group_by(team, minute) %>%
  summarise(num_goals = n(),
            own_goals = sum(ifelse(own_goal, 1, 0)),
            scores = num_goals - own_goals) %>%
  filter(team %in% c("United States", "France", "Brazil", "Argentina", "Canada")) %>%
  ggplot(aes(x=minute, y=scores)) +
  geom_line(aes(color=team)) +
  geom_vline(xintercept = 90, linetype=3) +
  geom_vline(xintercept = 45, linetype=3) +
  #annotate("text", x=77, y=30, label="End of Regulation") +
  #annotate("text", x=35, y=30, label="Half time") +
  theme_classic() + theme(legend.position = "bottom") +
  labs(x="Minute", title="By Minute Goals for Several Countries")

`summarise()` has grouped output by 'team'. You can override using the `.groups` argument.

Lets visualise this using facet_wrap, which creates a separate chart for each team. Multiple line chart with a facet_wrap for selected teams

# FACET
recent_goals %>%
  group_by(team, minute) %>%
  summarise(num_goals = n(),
            own_goals = sum(ifelse(own_goal, 1, 0)),
            scores = num_goals - own_goals) %>%
  filter(team %in% c("United States", "France", "Brazil", "Argentina", "Belgium")) %>%
  ggplot(aes(x=minute, y=scores)) +
  geom_line(aes(color=team)) +
  facet_wrap(~team) +
  geom_vline(xintercept = 90, linetype=3) +
  geom_vline(xintercept = 45, linetype=3) +
  #annotate("text", x=77, y=30, label="End of Regulation") +
  #annotate("text", x=35, y=30, label="Half time") +
  theme_classic() + theme(legend.position = "bottom") +
  labs(x="Minute", title="By Minute Goals for Several Countries")

`summarise()` has grouped output by 'team'. You can override using the `.groups` argument.

Research Question 5

Question: Compare minute-by-minute goals scored by United States, Belgium, Brazil, Argentina and France during the game. Choosing a categorical transition variable: https://gganimate.com/reference/transition_states.html

library(gganimate)
g2 = recent_goals %>%
  group_by(team, minute) %>%
  summarise(num_goals = n(),
            own_goals = sum(ifelse(own_goal, 1, 0)),
            scores = num_goals - own_goals) %>%
  filter(team %in% c("United States", "France", "Brazil", "Argentina", "Belgium")) %>%
  ggplot(aes(x=minute, y=scores)) +
  geom_area(aes(fill=team)) +
  geom_vline(xintercept = 90, linetype=3) +
  geom_vline(xintercept = 45, linetype=3) +
  theme_classic() + theme(legend.position = "bottom") +
  labs(x="Minute", 
  title="By Minute Goals for Several Countries: {closest_state}") +
  transition_states(team) 

`summarise()` has grouped output by 'team'. You can override using the `.groups` argument.

animate(g2, renderer = gifski_renderer())

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!

If we want to manually choose the transition: https://gganimate.com/reference/transition_manual.html

library(tidyverse)
library(gganimate)
p3 <- recent_goals %>%
  mutate(minute = as.factor(minute)) %>%
  group_by(team, minute) %>%
  summarise(num_goals = n(),
            own_goals = sum(ifelse(own_goal, 1, 0)),
            scores = num_goals - own_goals) %>%
  filter(team %in% c("United States", "France", "Brazil", "Argentina", "Belgium")) %>%
  ggplot(aes(x=minute, y=scores)) +
  geom_col(aes(fill=team)) +
  #facet_wrap(~minute) +
  geom_vline(xintercept = 90, linetype=3) +
  geom_vline(xintercept = 45, linetype=3) +
  #annotate("text", x=77, y=30, label="End of Regulation") +
  #annotate("text", x=35, y=30, label="Half time") +
  theme_classic() + theme(legend.position = "bottom") +
  scale_x_discrete(breaks=as.character(seq(0,125,5))) +
  scale_y_continuous(expand=c(0,0)) +
  labs(x="Minute", title="By Minute Goals for Several Countries: {current_frame }") +
  transition_manual(minute , cumulative=TRUE)

`summarise()` has grouped output by 'team'. You can override using the `.groups` argument.

animate(p3, renderer = gifski_renderer())

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!

Research Question 6

Question: Visualise, for each year individually, the minute-by-minute goals scored by all countries during the game. Choosing a date: https://gganimate.com/reference/transition_time.html

library(gganimate)
library(lubridate)
#install.packages('transformr')
p4<- recent_goals %>%
  mutate(game_year = year(date)) %>%
  group_by(game_year, minute) %>%
  summarise(num_goals = n(),
            own_goals = sum(ifelse(own_goal, 1, 0)),
            scores = num_goals - own_goals) %>%
  ggplot(aes(x=minute, y=scores)) +
  geom_col()+ 
  geom_vline(xintercept = 90, linetype=3) +
  geom_vline(xintercept = 45, linetype=3) +
  #annotate("text", x=77, y=30, label="End of Regulation") +
  #annotate("text", x=35, y=30, label="Half time") +
  theme_classic() + 
  theme(legend.position = "bottom") +
  labs(x="Minute", title="By Minute Goals for Several Countries: {round(stat(frame_time), digits=0)}") +
  transition_time(game_year) + 
  ease_aes('linear')

`summarise()` has grouped output by 'game_year'. You can override using the `.groups` argument.

animate(p4, renderer = gifski_renderer())

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!